Source Code
![]() |
These source-code files were transcribed from scans made from Don Eyles's personal
copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Mike Stewart. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are in ALL-CAPS, whereas
comments added later in transcription are in Mixed-Case. In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the BURST120 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 BY NASA 2021106-031 DEC 7, 1967 THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.Note that the date is the date of the printout, not the date of the program revision. |
037215,000002: ## Copyright: Public domain.
037216,000003: ## Filename: DUMMY_206_INITIALIZATION.agc
037217,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
037218,000005: ## is part of the source code for the Lunar Module's
037219,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
037220,000007: ## Assembler: yaYUL
037221,000008: ## Contact: Ron Burkey <info@sandroid.org>.
037222,000009: ## Website: www.ibiblio.org/apollo/index.html
037223,000010: ## Mod history: 2016-09-30 RSB Created draft version.
037224,000011: ## 2016-10-30 RSB Finished transcription.
037225,000012: ## 2016-12-06 RSB Proofed comments with octopus/ProoferComments,
037226,000013: ## changes were made.
037227,000014:
![]() |
Page 869 |
037229,000016: # PROGRAM NAME - BEGIN206
037230,000017: # MOD. NO. 3
037231,000018: # MOD BY - D. LICKLY AND J. SAMPSON
037232,000019: # DATE - NOV. 22, 1966
037233,000020: # LOG SECTION - DUMMY 206 INITIALIZATION
037234,000021: # ASSEMBLY - SUNBURST REVISION 36
037235,000022:
037236,000023: # FUNCTIONAL DESCRIPTION - START UP TO TWO DELAYED JOBS OR TASKS AFTER SLAP1 FOR SIMULATION PURPOSES.
037237,000024:
037238,000025: # FIXED INITIALIZATION REQUIRED - PATCH STARTDT1 AND STARTDT2 TO REPRESENT THE TIME2,TIME1 VALUE AT THE TIME AT
037239,000026: # WHICH THE JOBS OR TASKS ARE TO BEGIN
037240,000027: # PATCH CADR1 AND CADR2 IF SOME OTHER TASKS THAN TASK1 AND TASK2 ARE TO BE USED
037241,000028: # PATCH CADR3 AND CADR4 TO THE 2CADR OF THE JOBS TO BE STARTED
037242,000029: # PATCH 206BEGIN TO TC ENDOFJOB IF ONLY ONLY ONE TASK OR JOB IS TO BE STARTED
037243,000030: # PATCH TASK1 AND TASK2 WITH DIFFERENT PRIORITIES IF DESIRED
037244,000031: # SUBROUTINES CALLED - FINDVAC, WAITLIST
037245,000032:
037246,000033: # NORMAL EXIT MODES - ENDOFJOB, TASKOVER
037247,000034:
037248,000035: # ALARM OR ABORT EXIT MODES - NONE
037249,000036:
037250,000037: # OUTPUT - 2 WAITLIST OR FINDVAC CALLS FOR THE 2CADRS PATCHED IN
037251,000038:
037252,000039: # ERASABLE INITIALIZATION REQUIRED - NONE
037253,000040:
037254,000041: # DEBRIS - ITEMP1, CENTRALS, ERASABLES IN SUBROUTINES CALLED
037255,000042:
037256,000043: # NOTES - SINCE ONLY THE LOW ORDER PART OF STARTDT1 AND STARTDT2 ARE USED OT COMPUTE THE DELTAT FOR WAITLIST, THE
037257,000044: # REQUIRED TASKS AND JOBS WILL BE CALLED WITHIN 163.84 SECONDS
037258,000045:
037259,000046:
037260,000047: 35,3546 BANK 35
037261,000048:
037262,000049: 35,3546 00004 BEGIN206 INHINT
037263,000050:
037264,000051: 35,3547 40025 CS TIME1 # PATCH SLAP1 TO COME HERE TO START UP TWO
037265,000052: 35,3550 63573 AD STARTDT1 +1 # DELAYED TASKS OR JOBS FOR SIMULATIONS
037266,000053: 35,3551 67746 AD BIT14
037267,000054: 35,3552 67746 AD BIT14
037268,000055: 35,3553 56061 XCH ITEMP1
037269,000056:
037270,000057: 35,3554 30061 CA ITEMP1
037271,000058: 35,3555 05663 TC WAITLIST
037272,000059: 35,3556 0061 EBANK= ITEMP1
037273,000060: 35,3556 03576 72060 CADR1 2CADR TASK1 # MAY BE PATCHED FOR ANOTHER TASK
037274,000061:
037275,000062: 35,3560 40025 206BEGIN CS TIME1 # PATCH TO TC ENDOFJOB TO START 1 TASK
037276,000063: 35,3561 63575 AD STARTDT2 +1
037277,000064: 35,3562 67746 AD BIT14
![]() |
Page 870 |
037279,000066: 35,3563 67746 AD BIT14
037280,000067: 35,3564 56061 XCH ITEMP1
037281,000068:
037282,000069: 35,3565 30061 CA ITEMP1
037283,000070: 35,3566 05663 TC WAITLIST
037284,000071: 35,3567 0061 EBANK= ITEMP1
037285,000072: 35,3567 03603 72060 CADR2 2CADR TASK2 # COULD BE PATCHED
037286,000073:
037287,000074: 35,3571 05567 TC ENDOFJOB
037288,000075:
037289,000076:
037290,000077: 35,3572 00000 01130 STARTDT1 2DEC 600 B-28 # PATCH
037291,000078:
037292,000079: 35,3574 00000 00310 STARTDT2 2DEC 200 B-28 # PATCH
037293,000080:
037294,000081: 35,3576 35641 TASK1 CAF PRIO15 # ..OR YOUR OWN PRIORITY..
037295,000082: 35,3577 05516 TC FINDVAC
037296,000083: 35,3600 77777 CADR3 OCT 77777 # BETTER PATCH A 2CADR HERE
037297,000084: 35,3601 77777 OCT 77777
037298,000085: 35,3602 05727 TC TASKOVER
037299,000086:
037300,000087: 35,3603 37746 TASK2 CAF PRIO20
037301,000088: 35,3604 05516 TC FINDVAC
037302,000089: 35,3605 77777 CADR4 OCT 77777 # ..HERE ALSO..
037303,000090: 35,3606 77777 OCT 77777
037304,000091: 35,3607 05727 TC TASKOVER
037305,000092:
End of include-file DUMMY_206_INITIALIZATION.agc. Parent file is MAIN.agc